home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / telecomm / bbs / userdir.lha / UserDir.rexx < prev   
Encoding:
OS/2 REXX Batch file  |  1994-12-19  |  596 b   |  27 lines
  1. /* $VER: UserDir.rexx 1.0 (19.12.94)
  2.  *
  3.  * Created by Lauri Aalto <lauri.aalto@fipnet.fi> , placed in Public Domain.
  4.  *
  5.  * Resets user direcory comments for TechnoBBS
  6.  */
  7.  
  8. address command
  9. options failat 21
  10.  
  11. call pragma d, 'bbs:user'
  12. 'list >t:userdir.tmp dirs #[0-9] lformat %n'
  13. if open(file, 't:userdir.tmp', r) then do
  14.     do until eof(file)
  15.         l = readln(file)
  16.         if l ~= '' then
  17.             if open(data, l || '/user.dat', r) then do
  18.                 name = readln(data)
  19.                 'filenote' l '"' || name || '"'
  20.                 say right(l, 3) || ':' name
  21.                 call close data
  22.         end
  23.     end
  24.     call close file
  25. end
  26. 'delete >nil: t:userdir.tmp'
  27.